2 POKE53280,0:POKE53281,0:PRINTCHR$(142):POKE788,52:POKE792,193
20 PRINT"[147][154]       B A N K   A C C O U N T S       "
22 C1$="":C2$="[154]":AN=1
24 SL$(1)=" USE YOUR ACCOUNTS "
26 SL$(2)=" START AN ACCOUNT "
28 SL$(3)=" PROGRAM INFORMATION "
30 SL$(4)=" PROGRAM MODIFICATIONS "
31 SL$(5)=" SEARCH YOUR FILES "
32 SL$(6)=" MAILING LABELS "
34 SL$(7)=" RETURN TO BASIC "
36 PRINT"        [150]DESIGNED AND WRITTEN BY"
38 PRINT"             [154]JIM ABRONSKI"
40 PRINT"            [150]COPYRIGHT 1988"
42 PRINT"[158]   USE  UP [158][146] OR  DOWN [146][158] TO CHOOSE:"
44 FORX=1TO7:PRINT"       ";C1$;SL$(X):NEXTX
46 PRINT"[158]   PRESS  RETURN [146][158] TO ENTER SELECTION.[145]":GOSUB84
48 IFAN>7THENGOSUB86:GOTO48
50 G1$="BANK ACCOUNTS":IFAN=3THENG1$="PROGRAM INFO."
52 IFAN=2THENG1$="START ACCT."
54 IFAN=4THENG1$="MODIFICATIONS"
55 IFAN=5THENG1$="FILE SEARCH"
56 IFAN=6THENG1$="MAILING LABELS"
58 IFAN=7THENSYS64738
60 PRINT"[147]      *** [158]ONE MOMENT PLEASE ***"
64 PRINT"[144]LOAD"CHR$(34)G1$;
66 PRINT CHR$(34)",8";
68 POKE198,5:POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:END
84 PRINT"       ";C2$;SL$(1)
86 GETAN$:IFAN$<>""THEN98
88 JV=PEEK(56320):FR=JVAND16:JV=15-(JVAND15)
90 IFJV=1THENAN$=CHR$(145):FORT=1TO30:NEXTT:GOTO98
92 IFJV=2THENAN$=CHR$(17):FORT=1TO30:NEXTT:GOTO98
94 IFFR<>16THENAN$=CHR$(13):FORT=1TO30:NEXTT:GOTO98
96 GOTO86
98 IFAN$=CHR$(13)THENRETURN
100 IFAN$=CHR$(145)ORAN$=CHR$(29)THEN106
102 IFAN$=CHR$(17)THEN114
104 GOTO86
106 LN=AN:AN=AN-1:IFAN=0THENAN=7
108 PRINT"[145]       ";C1$;SL$(LN)
110 IFLN=1THENPRINT"       ";C2$;SL$(AN):GOTO86
112 PRINT"[145][145][145]       ";C2$;SL$(AN):GOTO86
114 LN=AN:AN=AN+1:IFAN=8THENAN=1
116 PRINT"[145]       ";C1$;SL$(LN)
118 IFLN=7THENPRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]       ";C2$;SL$(AN):GOTO86
120 PRINT"       ";C2$;SL$(AN):GOTO86